home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / KAM401.ZIP / KAM-VAR.PAS < prev    next >
Pascal/Delphi Source File  |  1989-08-25  |  2KB  |  106 lines
  1. var
  2.    state : machine_state;
  3.    mode  : kam_mode;
  4.    band  : BandType;
  5.  
  6.    capture : boolean;
  7.    capture_file : file of char;
  8.    capture_file_name : file_type;
  9.    capture_pointer : integer;
  10.    capture_buffer : array[0..2047] of char;
  11.  
  12.    xmt_wpm, rcv_wpm : str2;
  13.  
  14.    cw_off_delay,
  15.    xmt_on_delay,
  16.    xmt_off_delay,
  17.    xmt_time_out,
  18.    baud,
  19.    shift,
  20.    xmt_port,
  21.    a_hold, b_hold,
  22.    inp_ptr, out_ptr,
  23.    xout, yout, xkbd, ykbd,
  24.    index, nbr,
  25.    xin, yin,
  26.    curs_x, curs_y,
  27.    int_wpm,
  28.    kam_baud_rate,
  29.    status_line,
  30.    inp_start_line,
  31.    inp_end_line,
  32.    aux_line,
  33.    out_start_line,
  34.    out_end_line,
  35.    lead_attr           : integer;
  36.  
  37.    packet_mark, packet_space : string;
  38.  
  39.    xmt_enabled,
  40.    xmt_ON,
  41.    auto_switch,
  42.    rcv_interrupt,
  43.    send_interrupt,
  44.    invert,
  45.    quit_flag,
  46.    stop_flag,
  47.    pause_flag,
  48.    viewing_help,
  49.    rcv_flag : boolean;
  50.  
  51.    key, qkey,
  52.    out_chr,
  53.    msg_nbr : char;
  54.    kbd_buffer : array[0..buf_size] of char;
  55.  
  56.    SW_VHF, SW_HF : char;
  57.  
  58.    msg : array[0..9] of msg_type;
  59.    msg_file_name,
  60.    msg_file_0     : file_type;
  61.    qso_nbr,
  62.    time_zone : integer;
  63.    rcv_buffer : array[0..max_rcv_buffers] of ^msg_type;
  64.    tmpstr : string;
  65.    rcv_cnt : integer;
  66.  
  67.  
  68.    image,
  69.    screen1,
  70.    param_scr,
  71.    help_scr,
  72.    qsig_scr,
  73.    rst_scr   : screen;
  74.    mono_screen : screen absolute $0B000:$0000;
  75.    color_screen : screen absolute $0B800:$0000;
  76.    video : ^screen;
  77.  
  78.    attr_pos : integer;
  79.  
  80.    b_clr : array[0..5] of integer;
  81.    f_clr : array[0..5] of integer;
  82.  
  83.    hour, min, year, month, day : integer;
  84.  
  85.    xmt_attrib,
  86.    rcv_attrib,
  87.    status_attrib,
  88.    prompt_attrib,
  89.    aux_attrib,
  90.    help_attrib: byte;
  91.  
  92.    old_time : string[5];
  93.  
  94.    kam_log_file : file_type;
  95.  
  96.    station : string[30];
  97.  
  98.    WHERE : string;
  99.  
  100.    show_line : integer;
  101.    line_count: integer;
  102.    first : integer;
  103.    nlines : integer;
  104.  
  105.    PKCall : string;
  106.